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LLL HI11111 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL HI NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKK KKK EEE RER RRR 

LLL 11] NNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR ARR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE ARP RR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE _ RRR RRR 

LLLLLLLLLLLLLLL IIIIIIII1 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 
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OO Se Se OO SO 
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wou [vey vy) gooococodcaq og 
wou su oeooo0co0cdC0 og 
wu wou [vuyvy) oo oo 
ww uu uu os og 
wow wou wu oo og oo 
wus wu wou oo og ogo 
wu wu wu oo og 
wu ww wou oo og 
(VUTeUTrelvelvelvereulverreyrerrelvelverry) goococo0c00cCcCcCCo 
(VUTVUTYU TUT Yel reryelrerreyrerreryyl verry) goococco0ccCcCco9d 
ecacacac <a wu ww 
ecaca <a wu uous 
ca ca ca wu wu wou 
ca <a ca wou ww wus 
<a ecacac wus ww uu 
ca ecaca wu wu wus 
ca <a ww ww ww 
ca ca wu ww wu 
Qaoeaaaacaacaacaacaac [VOT VUTVulvelververrvyryyrelrelververveyry) 
@aaaacaacaacaacaacacac VOT VU VUTVeTrelrerrel rel rel rer rvrryyrel ry) 
aaaa coeacec . 4: 4 
aaaa eccc cae 
aa aa ca <a ca 
aa aa za ca <a 
aa aa <a ccc 
aa aa <a cccc 
aa aa ca <a 
aweereuweeeew LPT TA ALT 
agaaaaadaaaaaaaa @Qaeaacacaacacaacacac 
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! 
! Version: *v04-000' 


Vee e EEA AAR AAEAAA AAA AEEE REA AAAA AAA EREAAAEEAREE HEE KeTe eee eee eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS sh re FURNISHED =: A_LICENSE AND MAY BE USED AND sortte 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t* INCLUSION OF THe ABOVE eet NOTICE. THIS SOF Th ARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
® 
® 
* 
® 
te 
® 
® 
® 
® 
ie TRANSFERRED. * 
ca 
® 
® 
® 
® 
® 
® 
® 
® 
® 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* ComPOkarion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eRe EERE ERATE EAE EEE EEE AAAAERA AAA AAAAAAAAAAERERAEATERE TERETE 


MODULE: PREF IX.REQ 
FACILITY: LINKER 


a ss 
+ 


ABSTRACT: REQUIRE FILE TO DEFINE LOCALLY SOME 
INTERESTING GENERAL SYMBOLS, STRUCTURES AND MACROS 
HISTORY: 
AUTHOR: T.J. PORTER 15-DEC-76 | 
MODIFICATIONS: 
v03-001 ywT0099 Jim 14-Mar-1983 


Add useful macros at Pend ““dynamic_descriptor’’. 
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++ 


' 
1 
! FUNCTIONAL DESCRIPTION: 
THIS REQUIRE FILE DEFINES SOME GENERAL, LOCAL VALUES AND MACROS 
: WHICH CANNOT OR ARE BEST NOT DEFINED GLOBALLY. 
lee 
i 
MACRO 
sd Ca] = bind Xname('sd_',a) = $descriptor(a)%, 
dynamic_descriptor = block Cdsc$c_s_bln,byte] preset ( Cdsc$w_length] = 0, 
dsc$b_class] = dsc$k_class_d, 
dsc$a_pointer] = 0 )%, 
SHORT = UNSIGNED(6)% ' SHORT LITERAL ATTRIBUTE 
BYTLIT = UNSIGNED(8)% ' UNSIGNED BYTE ATTRIBUTE 
WORDLIT = UNSIGNED(165%, ! UNSIGNED WORD ATTRIBUTE 


; MACRO THAT DESCRIBES A STRING 
STRINGDESC(STRING) = XCHARCOUNT(STRING), UPLIT(ZASCII STRING)%, 
MACRO TO GENERATE A QUADWORD STRING DESCRIPTOR 
DESCRIPTOR(STRING) = VECTORC2] INITIAL(STRINGDESC(STRING))%, 
i MACRO TO GENERATE A POINTER TO A COUNTED STRING 
CSTRING(STRING) = UPLIT BYTE(XCHARCOUNT (STRING) ,STRING)%, 
' MACRO TO ALLOCATE AN N-CHARACTER STORAGE VECTOR 
CHSSEQUENCE(N) = VECTORCCHSALLOCATION(N) J%, 
i MACRO TO INITIALIZE SUCCESSIVE LOCATIONS WITH A COUNT FOLLOWED BY A STRING 
COUNTEDSTRING(STRING) = BYTE(ZCHARCOUNT(STRING) ,ZASCII STRING )%; 


Define VMS block structures 
STRUCTURE 


(BBLOCK+0)<P,S,E>; 
LITERAL 
REGION = %X‘'200' ! DEFAULT BASE OF PROGRAM REGION 
OL- REGION = 2x'4 00", ! START OF CONTROL REGION 

SYSTEM SPACE = ay 508 . ' START OF SYSTEM SPA 

MAX_ADBRESS = %x'C00 .. ' MAXIMUM VIRTUAL ADDRESS 

FALSE = 0, ! THE LOGICAL VALUES TRUE 
TRUE = 1; ' AND FALSE. 


iL INKAGE 
i JSB_3 = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2), 
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! A VECTOR OF N QUADWORDS 
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